
 1000  *--------------------------------
 1010  * READ PADDLES
 1020  * PADDLE NUMBER IN A REGISTER
 1030  * USES A,X,Y REGISTERS
 1040  * RETURNS PADDLE VALUE IN Y REGISTER
 1050  *--------------------------------
 1060  * THIS PADDLE READ ROUTINE
 1070  * WILL PREVENT ALMOST ALL PADDLE
 1080  * INTERACTION PROBLEMS DUE TO
 1090  * ONLY 1 PADDLE TRIGGER FOR
 1100  * ALL PADDLES.
 1110  *--------------------------------
 1120  MON.PREAD .EQ $FB1E
 1130  *--------------------------------
 1140  READP  AND #3           PDL 0 - 3
 1150         TAX
 1160         JSR MON.PREAD+3  MAKE SURE PADDLE IS READY
 1170         LDY #0
 1180  .1     DEY              KLUDGE DELAY FOR
 1190         BNE .1              CIRCUIT READY
 1200         JMP MON.PREAD    TRIGGER AND READ
 1210  * PADDLE RESULT IN Y REGISTER
 1220  *--------------------------------
 1230  DEMO   LDA #0       READ PADDLE 0
 1240         STA $24      HTAB COLUMN 1
 1250         JSR READP
 1255         TYA          VALUE TO A
 1260         JSR $FDDA    PRINT VALUE IN HEX
 1270         INC $24      LEAVE SPACE ON SCREEN
 1280         LDA #1       READ PADDLE 1
 1290         JSR READP
 1295         TYA          VALUE TO A
 1300         JSR $FDDA    PRINT VALUE IN HEX
 1310         JMP DEMO     AGAIN AND AGAIN...

